/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / AVOGADRO / SCIDISCS / DISC2 / GREENING.SPK / Fibonacci

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 46 | 69 62 6f 6e 61 63 63 69 |..... >F|ibonacci|
|00000010| 0d 00 14 54 f4 20 50 72 | 69 6e 74 73 20 61 6e 79 |...T. Pr|ints any|
|00000020| 20 46 69 62 6f 6e 61 63 | 63 69 20 6e 75 6d 62 65 | Fibonac|ci numbe|
|00000030| 72 20 70 72 6f 76 69 64 | 65 64 20 6e 75 6d 62 65 |r provid|ed numbe|
|00000040| 72 20 6f 66 20 64 69 67 | 69 74 73 20 69 73 20 6e |r of dig|its is n|
|00000050| 6f 74 20 67 72 65 61 74 | 65 72 20 74 68 61 6e 20 |ot great|er than |
|00000060| 32 35 36 2e 0d 00 1e 1e | f4 20 2a 2a 2a 2a 2a 2a |256.....|. ******|
|00000070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000080| 2a 2a 0d 00 28 1e f4 20 | 2a 20 20 20 20 20 4a 6f |**..(.. |*     Jo|
|00000090| 68 6e 20 47 72 65 65 6e | 69 6e 67 20 20 20 20 2a |hn Green|ing    *|
|000000a0| 0d 00 32 1e f4 20 2a 20 | 31 35 20 50 65 6e 74 6c |..2.. * |15 Pentl|
|000000b0| 61 6e 64 20 43 72 65 73 | 63 65 6e 74 20 2a 0d 00 |and Cres|cent *..|
|000000c0| 3c 1e f4 20 2a 20 20 45 | 64 69 6e 62 75 72 67 68 |<.. *  E|dinburgh|
|000000d0| 20 45 48 31 30 20 36 4e | 53 20 20 2a 0d 00 46 1e | EH10 6N|S  *..F.|
|000000e0| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 00 50 07 eb 20 |********|**..P.. |
|00000100| 30 0d 00 5a 10 40 25 3d | 26 30 30 30 30 30 39 30 |0..Z.@%=|&0000090|
|00000110| 41 0d 00 64 08 f2 64 69 | 6d 0d 00 6e 0a f2 65 6e |A..d..di|m..n..en|
|00000120| 74 65 72 0d 00 78 05 f1 | 0d 00 82 0e f2 63 61 6c |ter..x..|.....cal|
|00000130| 63 75 6c 61 74 65 0d 00 | 8c 05 f1 0d 00 96 0a f2 |culate..|........|
|00000140| 70 72 69 6e 74 0d 00 a0 | 05 e0 0d 00 aa 05 3a 0d |print...|......:.|
|00000150| 00 b4 05 3a 0d 00 be 0b | dd f2 65 6e 74 65 72 0d |...:....|..enter.|
|00000160| 00 c8 3c e8 20 22 45 6e | 74 65 72 20 6e 75 6d 62 |..<. "En|ter numb|
|00000170| 65 72 20 6f 66 20 46 69 | 62 6f 6e 61 63 63 69 20 |er of Fi|bonacci |
|00000180| 6e 75 6d 62 65 72 20 72 | 65 71 75 69 72 65 64 20 |number r|equired |
|00000190| 28 3c 31 32 32 30 29 20 | 22 46 25 0d 00 d2 23 f1 |(<1220) |"F%...#.|
|000001a0| 27 22 42 65 20 70 72 65 | 70 61 72 65 64 20 74 6f |'"Be pre|pared to|
|000001b0| 20 77 61 69 74 20 61 20 | 77 68 69 6c 65 22 0d 00 | wait a |while"..|
|000001c0| dc 05 e1 0d 00 e6 05 3a | 0d 00 f0 09 dd f2 64 69 |.......:|......di|
|000001d0| 6d 0d 00 fa 0d 4d 3d 36 | 35 3a 4e 3d 36 34 0d 01 |m....M=6|5:N=64..|
|000001e0| 04 20 de 20 4e 31 25 28 | 4d 2b 31 29 2c 4e 32 25 |. . N1%(|M+1),N2%|
|000001f0| 28 4d 2b 31 29 2c 4e 33 | 25 28 4d 2b 31 29 0d 01 |(M+1),N3|%(M+1)..|
|00000200| 0e 1b 4e 31 25 28 31 29 | 3d 31 3a 4e 32 25 28 31 |..N1%(1)|=1:N2%(1|
|00000210| 29 3d 30 3a 4e 32 25 3d | 30 0d 01 18 05 e1 0d 01 |)=0:N2%=|0.......|
|00000220| 22 05 3a 0d 01 2c 09 dd | f2 61 64 64 0d 01 36 07 |".:..,..|.add..6.|
|00000230| 58 3d 30 0d 01 40 0e e3 | 20 49 25 3d 31 20 b8 20 |X=0..@..| I%=1 . |
|00000240| 4d 0d 01 4a 17 57 3d 4e | 31 25 28 49 25 29 2b 4e |M..J.W=N|1%(I%)+N|
|00000250| 32 25 28 49 25 29 2b 58 | 0d 01 54 10 58 3d a8 28 |2%(I%)+X|..T.X=.(|
|00000260| 57 2f 31 30 30 30 30 29 | 0d 01 5e 15 4e 33 25 28 |W/10000)|..^.N3%(|
|00000270| 49 25 29 3d 57 2d 31 30 | 30 30 30 2a 58 0d 01 68 |I%)=W-10|000*X..h|
|00000280| 05 ed 0d 01 72 05 e1 0d | 01 7c 05 3a 0d 01 86 0b |....r...|.|.:....|
|00000290| dd f2 70 72 69 6e 74 0d | 01 90 0a 66 6c 61 67 3d |..print.|...flag=|
|000002a0| b9 0d 01 9a 1b f1 20 22 | 46 69 62 6f 6e 61 63 63 |...... "|Fibonacc|
|000002b0| 69 20 22 3b 4e 32 25 3b | 22 3d 22 3b 0d 01 a4 13 |i ";N2%;|"=";....|
|000002c0| e3 20 49 25 3d 4e 20 b8 | 20 31 20 88 20 2d 31 0d |. I%=N .| 1 . -1.|
|000002d0| 01 ae 15 54 45 4d 50 24 | 3d 20 c3 28 4e 33 25 28 |...TEMP$|= .(N3%(|
|000002e0| 49 25 29 29 0d 01 b8 2a | e7 20 28 49 25 3c 3e 4e |I%))...*|. (I%<>N|
|000002f0| 20 80 20 66 6c 61 67 3d | a3 29 20 f1 20 c4 34 2d | . flag=|.) . .4-|
|00000300| a9 28 54 45 4d 50 24 29 | 2c 22 30 22 29 3b 0d 01 |.(TEMP$)|,"0");..|
|00000310| c2 17 e7 20 54 45 4d 50 | 24 3c 3e 22 30 22 20 66 |... TEMP|$<>"0" f|
|00000320| 6c 61 67 3d a3 0d 01 cc | 15 e7 20 66 6c 61 67 3d |lag=....|.. flag=|
|00000330| a3 20 f1 20 54 45 4d 50 | 24 3b 0d 01 d6 05 ed 0d |. . TEMP|$;......|
|00000340| 01 e0 11 e7 20 66 6c 61 | 67 3d b9 20 f1 22 30 22 |.... fla|g=. ."0"|
|00000350| 0d 01 ea 05 f1 0d 01 f4 | 05 e1 0d 01 fe 05 3a 0d |........|......:.|
|00000360| 02 08 0f dd f2 63 61 6c | 63 75 6c 61 74 65 0d 02 |.....cal|culate..|
|00000370| 12 05 f5 0d 02 1c 0a 4e | 32 25 2b 3d 31 0d 02 26 |.......N|2%+=1..&|
|00000380| 0d f1 8a 34 2c 34 29 4e | 32 25 0d 02 30 08 f2 61 |...4,4)N|2%..0..a|
|00000390| 64 64 0d 02 3a 1b 4e 31 | 25 28 29 3d 4e 32 25 28 |dd..:.N1|%()=N2%(|
|000003a0| 29 3a 4e 32 25 28 29 3d | 4e 33 25 28 29 0d 02 44 |):N2%()=|N3%()..D|
|000003b0| 0c fd 20 4e 32 25 3d 46 | 25 0d 02 4e 05 e1 0d ff |.. N2%=F|%..N....|
+--------+-------------------------+-------------------------+--------+--------+